﻿Public Class NuevoUsuarioFrm
    Private nivel As Byte = 2

    Private Sub NuevoUsuario_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'ScrumDataSet.Usuarios' Puede moverla o quitarla según sea necesario.

        Me.UsuariosTableAdapter.Fill(Me.ScrumDataSet.Usuarios)

    End Sub

    Private Sub BtnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAceptar.Click
        For Each micontrol As Control In Me.Controls
            If micontrol.GetType = GetType(TextBox) Then
                If micontrol.Text = "" Then MessageBox.Show("Las cajas de texto no pueden estar vacías") : Exit Sub
            End If
        Next

        If Not ContraseñaTextBox.Text.Equals(txtNewpass.Text) Then
            MessageBox.Show("Contraseña incorrecta")
            Exit Sub
        End If

        Dim drUsuarios() As scrumDataSet.UsuariosRow = ScrumDataSet.Tables("Usuarios").Select("Usuario = '" & UsuarioTextBox.Text & "' Or Contraseña = '" & ContraseñaTextBox.Text & "'")
        Try

            If drUsuarios.Length > 0 Then
                MessageBox.Show("Usuario existente, introduzca otro")
                UsuarioTextBox.Select()
                LimpiarCajasDeTexto()
                Exit Sub
            End If

            UsuariosTableAdapter.Insert(UsuarioTextBox.Text, ContraseñaTextBox.Text, nivel)

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        MessageBox.Show("Usuario añadido")
        Me.UsuariosTableAdapter.Fill(Me.ScrumDataSet.Usuarios)
        LimpiarCajasDeTexto()
    End Sub
    Private Sub LimpiarCajasDeTexto()
        For Each micajita As Control In Me.Controls
            If micajita.GetType = GetType(TextBox) Then TryCast(micajita, TextBox).Clear()
        Next
    End Sub

    Private Sub BtnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSalir.Click
        
        Me.Close()


        'Dim mi As LoginFrm
        'mi = New LoginFrm

        'mi.ShowDialog()
        ''Me.Close()
        'MessageBox.Show("asdasd")

    End Sub




End Class